10 DIMD$(24):D$(0)=CHR$(19):FORX=1TO24:D$(X)=D$(X-1)+CHR$(17):NEXT 20 FORX=54272TO54295:POKEX,0:NEXT:POKE54296,15 30 PRINTCHR$(147):POKE53280,6:POKE53281,6:POKE646,1 40 PRINTD$(6)TAB(5)"PPPP IIII CCCC K K AAAA" 50 PRINTTAB(5)"P P I C K K A A" 60 PRINTTAB(5)"PPPP I C KK AAAA" 70 PRINTTAB(5)"P I C K K A A" 80 PRINTTAB(5)"P IIII CCCC K K A A" 90 PRINTD$(15)TAB(5)"L EEEE TTTT TTTT EEEE RRRR" 100 PRINTTAB(5)"L E T T E R R" 110 PRINTTAB(5)"L EEE T T EEE RRRR" 120 PRINTTAB(5)"L E T T E R R" 130 PRINTTAB(5)"LLLL EEEE T T EEEE R R" 140 FORX=1064TO1103:POKEX,90:POKEX+54272,1:NEXT 150 FORX=1143TO2023STEP40:POKEX,90:POKEX+54272,1:NEXT 160 FORX=2022TO1984STEP-1:POKEX,90:POKEX+54272,1:NEXT 170 FORX=1944TO1104STEP-40:POKEX,90:POKEX+54272,1:NEXT 180 FORX=1TO5:POKE53280,2:POKE53281,2:FORDE=1TO200:NEXT 190 POKE53280,6:POKE53281,6:FORDE=1TO200:NEXT:NEXT:FORDE=1TO500:NEXT 200 PA$="PRESS FIRE BUTTON TO PLAY AGAIN" 210 FORX=1TO10:READAN$(X),CL$(X):NEXT:PP(1)=1436:FORX=2TO9:PP(X)=PP(X-1)+2:NEXT 220 FORX=1TO10:AN(X)=0:NEXT:LE=0:SC=0:POKE53280,3:POKE53281,3 230 PRINTCHR$(147):LE=LE+1:IFLE=11THEN640 240 F2=0:FORX=1064TO1103:POKEX,160:POKEX+54272,2:NEXT 250 FORX=1143TO2023STEP40:POKEX,160:POKEX+54272,2:NEXT 260 FORX=2022TO1984STEP-1:POKEX,160:POKEX+54272,2:NEXT 270 FORX=1944TO1104STEP-40:POKEX,160:POKEX+54272,2:NEXT 280 FORX=1355TO1373:POKEX,160:POKEX+54272,2:NEXT:FORX=1395TO1413STEP2 290 POKEX,160:POKEX+54272,2:NEXT:FORX=1435TO1453STEP2:POKEX,160:POKEX+54272,2 300 NEXT:FORX=1475TO1493:POKEX,160:POKEX+54272,2:NEXT 310 FORX=1TO9:POKEPP(X)+54272,1:NEXT:FORX=1630TO1657:POKEX,160:POKEX+54272,2 320 NEXT:POKE1670,160:POKE1670+54272,2:POKE1697,160:POKE1697+54272,2 330 POKE1710,160:POKE1710+54272,2:POKE1737,160:POKE1737+54272,2 340 FORX=1750TO1777:POKEX,160:POKEX+54272,2:NEXT:FORX=1711TO1736 350 POKEX+54272,1:NEXT:POKE646,6:PRINTD$(9)TAB(12)"123454321" 360 PRINTD$(16)TAB(7)"ABCDEFGHIJKLMNOPQRSTUVWXYZ":PRINTD$(23)TAB(17)SC 370 RN=INT(RND(1)*10)+1:IFAN(RN)=1THEN370 380 AN(RN)=1:Y=LEN(AN$(RN)):Z=LEN(CL$(RN)):T$="":FORX=1TOY:T$=T$+"-":NEXT 390 PRINTD$(3)TAB((40-Z)/2)CL$(RN):PRINTD$(5)TAB((40-Y)/2)T$ 400 N=INT(RND(1)*9)+1:POKEPP(N),81:FORDE=1TO100:NEXT 410 FB=-((PEEK(56320)AND16)=0):IFFB=0THENPOKEPP(N),32:GOTO400 420 FB=-((PEEK(56320)AND16)=0):IFFB=1THEN420 430 AP=1711:POKEAP,30:F1=0:LV=PEEK(PP(N)-40)-48 440 FORDE=1TO100:NEXT:FB=-((PEEK(56320)AND16)=0):IFFB=1THEN500 450 JS=PEEK(56320)AND15:IFJS=11THENDI=-1:GOTO480 460 IFJS=7THENDI=1:GOTO480 470 GOTO440 480 IFPEEK(AP+DI)=160THEN440 490 POKEAP,32:AP=AP+DI:POKEAP,30:GOTO440 500 IFPEEK(AP-40)=32THEN440 510 L$=CHR$(PEEK(AP-40)+64):FORX=1TOY:IFL$<>MID$(AN$(RN),X,1)THEN550 520 F1=1:T$=LEFT$(T$,X-1)+L$+MID$(T$,X+1):PRINTD$(5)TAB((40-Y)/2)T$:SC=SC+LV 530 PRINTD$(23)TAB(17)SC:POKE54277,15:POKE54272,70:POKE54273,100:POKE54276,33 540 FORDE=1TO75:NEXT:POKE54276,32:IFT$=AN$(RN)THEN570 550 NEXT:IFF1=1THEN570 560 F2=1:POKE54277,45:POKE54272,20:POKE54273,5:POKE54276,33:FORDE=1TO150:NEXT 570 POKE54276,32:POKEAP,32:POKEAP-40,32:POKEPP(N),32:IFT$<>AN$(RN)THEN400 580 IFF2=1THEN610 590 SC=SC+10:PRINTD$(23)TAB(17)SC:FORQ=1TO2:POKE53280,14:FORDE=1TO100:NEXT 600 POKE53280,13:FORDE=1TO100:NEXT:POKE53280,3:FORDE=1TO100:NEXT:NEXT 610 PRINTD$(24)TAB(11)"PRESS FIRE BUTTON";:FORDE=1TO50:NEXT 620 FB=-((PEEK(56320)AND16)=0):IFFB=1THEN230 630 PRINTD$(24)TAB(11)" ";:FORDE=1TO50:NEXT:GOTO610 640 FORDE=1TO1000:NEXT:PRINTCHR$(147):POKE53280,9:POKE53281,8:POKE646,7 650 PRINTD$(9)TAB(15)"GAME OVER":PRINTD$(12)TAB(12)"FINAL SCORE:"SC 660 IFSC>HSTHENHS=SC 670 PRINTTAB(13)"HIGH SCORE:"HS 680 PRINTD$(16)TAB(4)PA$:FORDE=1TO50:NEXT:POKE646,1:PRINTD$(16)TAB(4)PA$ 690 FORDE=1TO50:NEXT:FB=-((PEEK(56320)AND16)=0):IFFB=1THEN220 700 POKE646,7:GOTO680 710 DATA LAUDABLE,PRAISEWORTHY 720 DATA PERFORATE,TO PIERCE WITH HOLES IN ROWS 730 DATA VISCID,STICKY OR ADHESIVE 740 DATA PENURIOUS,STINGY 750 DATA RIDICULOUS,ABSURD 760 DATA DISTRAUGHT,WORRIED 770 DATA PROBE,INVESTIGATE OR EXAMINE 780 DATA TAUT,TIGHT 790 DATA HAZARDOUS,DANGEROUS 800 DATA TOLERATE,ENDURE